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Transactor Article Contest Winners 

In Transactor #8, we promised awards for the best 
articles published in Volume 2. VJe also promised free 
subscriptions to The Transactor Volume 3 for any article 
published. Here are the winners: 

Best Article goes to J. Hoogstraat of Calgary, Alberta, 
for his BASIC Labelling Routine published this issue and also 
for his 2040 Disk I/O Routine in bulletin #10. Kr. 
Hoogstraat gets a free Visicalc package. 

Runner up award goes to F. Van Duinen of Toronto, 
Ontario, for ?LOAD ERROR, D.R.I.P and Program Plus. Mr. Van 
Duinen receives a Commodore calculator, model # SR9190. 

Free Volume 3 subscriptions are going to: 



J. Hoogstraat 
*Kevin Erler 
*James Yost 

Michael Casey 
*B. Brown 

Dave Hook 

Henry Troup 
♦Sheldon H. Dean 

Brad Templeton 



F. Van Duinen 
John A. Cooke 
Chuan Chee 

G. Hathaway 
*L.D. Gardner 

Paul Barnes 
Gord Campbell 
Don VJhite 



*Jim Russo 

Rick Ellis 

Jim Hindson 

W.T. Garbutt 

Tom Wojdylo 
*S. Donald 
*John Macdonald 

Dave Berezov/ski 
♦Robert Oei 



* Please call or send in your address. 



This contest will be held again for The Transactor 
Volume 3, prizes may differ. 

If you're asking "What about Jim Butterf ield?" , don't 
worry, he's been well taken care of. 

As a Commodore dealer. Bill MacLean of BMB CompuScience 
was not eligible for a prize, but we'll figure something out. 

I'd like to thank all who contributed to Volume 2 and 
special thanks to Jim and Bill for some really excellent 
stuff! Special thanks also to Terry Garbutt for his truly 
genuine help and support. Hoping to hear from all of you in 
Volume 3, I remain, 

Karl J. Hildon 
Editor, The Transactor 



The Transactor is produced on the CBM 8032 using V7ordPro IV 
and the NEC Spinwriter 



Bits and Pieces 



Exclusive OR on Your PET 

In boolean algebra there are three main operators: AND, 
OR and NOT. All three of these are included in PET BASIC. 
However, one sometimes very useful boolean function was not 
included in BASIC. This is the Exclusive OR function. EXOR 
is a function of AND, OR and NOT: 

(a)EXOR(b) = ((a) AND (NOT(b)) ) OR ((b) AND (NOT(a)) ) 

Of course the above would result in 7SYNTAX ERRORS if 
coded literally. The following will accomplish a% Exclusive 
OR'd with b% in BASIC. 

ex% = ((a%)and(not(b%)))or((b%)and(not(a%))) 

An Extra Note on Logical Operators 

Try RUNning this short program: (enter exactly as shown) 

10 xt=5 : xf=6 : rem just random values 
20 print xtandxf 

Now replace line 20 with each of the following line 20 's 
and RUN each again. 

20 print xtorxf 
20 print xforxt 

Each of the three will result in ?SYNTAX ERROR IN LINE 
20. But why? When you hit return on a line of BASIC, the 
PET procedes to "tokenize" the line by parsing the characters 
from left to right. 

Line: Would be tokenized as; 



20 print xtandxf print x tan dxf 
20 print xtorxf print x Ifl rxf 

20 print xforxt print x for xt 

A general rule: When preceding logical operators with 
floating point variables, insert a space or enclose the 
variable in brackets. Integer type variables will not be 
succeptable to this problem because the "%" sign will act as 
a delimiter. Brackets are still necessary for hierarchy of 
operations. 

This gotcha surfaces in one other command in BASIC 4.0: 

header "diskname" , do , if x 

The breakdown of this would be format a diskettes on drive 
with "diskname" as the title and "fx" as the disk id. But on 
hitting return, a 7SYNTAX ERROR is printed because ifx is 
tokenized as ifx . 



The BASIC Difference Is; 

BASIC 1.0 BASIC 2.0 BASIC 4.0 

PEEK(50003) =0 1 160 

Disable STOP 

POKE 537,136 144, 49 144, 88 
Enable STOP 

POKE 537,133 144, 46 144, 85, 

New BASIC 4.0 machines reportedly crash on some old 
programs. The culprit is most likely a disable STOP key 
POKE, Also check for POKE59458,62, the screen speed-up POKE. 
As mentioned before, this can also crash machines. See 
article this issue on BASIC 2.0 - BASIC 4.0 Conversions for 
more info. 



Spcegn HiQ^dinq 



All you need is a "screen-set-up" routine to "draw" your 
screen out, and this program will store it on disk: 

100 REM SCREEN SAVER 

110 OPEN 8, 8, 8, "0:SCREEN NAME,P,V7" 

120 PRINT#8, CHR$(0)CHR$(128) ; 

130 EN=33767 : IF PEEK( 50003 ) =160 THEN EN=34767 

140 FOR J=3276 8 TO EN 

150 PRINT#8, PEEK(J) ; 

160 NEXT 

170 CLOSE 8 

180 END 

Line 130 sets end screen (EN) to 33767 for 40 columns, 34767 
for 80 columns. 

SAVE this program and do a NEW. Nov; enter: 

10 ON X GOTO 120 
100 PRINT "[clrscrn]"; 
110 X=l : LOAD "0: SCREEN NAME", 8 
120 END 

RUN this and the old screen should pop back on the 
screen as fast a loading Ik from disk. The cursor will 
remain in the home position since nothing is actually 
printed. No pointers or variables are changed since it was a 
"dynamic load". But the loader program would RUN from the 
beginning, hence the ON X GOTO statement. This could be 
expanded to accommodate more screen loads simply by adding 
more GOTO data to line 10 and setting X appropriately prior 
to the load. The SCREEN SAVER program could also be modified 
to store only a portion of the screen. But don't forget to 
change the load address in line 120, else the files will 
always load back to screen starting at HOME. 



More On The NEC S pinwriter 



In Transactor #11, the internal switch positions for the 
NEC Spinwriter were published to get proper operation with 
WordPro. Dr. G. Piasecki of Oakville, Ontario, tells me that 
one of the switches should be left unchanged. 

back board : SW1= 00001X11 

The switch at position 6 (labelled "X") will be set ON or OFF 
(1 or 0) depending on your particular Spinwriter. This is 
done at the factory. Set the other switches as shown but do 
not change position 6. See page 1 of Transactor #11 for more 
info. In summary: 

back board : SW1= 00001X11 

2nd from back board : SW1= 00000000 

SW2= 10100000 

SW3= 10100000 

Another Contest! 



This one's a quickie and will be decided before 
publication of Bulletin #1, Volume 3. 

Objective: The shortest macro routine to push the stack 
pointer onto the stack. Inotherwords, a PHS instruction. 

1. All internal registers {.A, .X, .Y and .P) must have 
their original contents once the stack pointer is on 
the stack. 

2. Macro only; no using RAM (excluding the stack) to 
store internal registers 

The person with the shortest routine will receive a 
free subscription to The Transactor Volume 3. Submit entries 
to: 

Commodore Business Machines 

3370 Pharmacy Avenue 

AGINCOURT, Ontario 

MIW 2K4 

Atn: The Transactor 



O o ps I 

Dave Hooks Card Print Utility was published in the last 
issue without a listing of the program. The listing and the 
cross reference follow Bits and Pieces. 

Also, our last bulletin was actually #11. It was 
labelled "10" by mistake. The real bulletin 10 is labelled 
"# 10". 



Subscription Renewals 

Don't forget, this is the last issue of The Transactor, 
Volume 2, A Volume 3 subscription form has been included in 
this issue. The Transactor Volume 3 will be $10.00 for 6 
issues, back issues included. 



Transactor #7 Insert 

The center page of this issue contains more helpful 
reference lists and tables. It has been designed so that, if 
you wish, it can be removed and inserted as the center page 
of Transactor #7. 



Flashl 



The POP SYS for BASIC 2.0 also has an equivalent BASIC 
4.0 entry point: 

BASIC 2.0: SYS 50583 
BASIC 4.0: SYS 46610 

This SYS "POPS" or cleans the stack of all GOSUBs and 
NEXT loops. Watch for this when converting BASIC 2.0 to 
BASIC 4.0 too! 



CROSS REFERENCE - PROGRAM CARD UTILITY 



A% 

C% 

D% 

D%( 

E9 

F${ 

I 

I$( 

J 

J% 

K% 

L 

L% 

M% 

P% 

S${ 

S% 

S%{ 

Sl$ 

S2$ 

T% 

TB% 
TI 

V% 

Z 
Z$ 



42020 
42000 
40000 
40020 
40000 
40080 
40000 
40030 
40000 
43250 
40000 
40000 
42000 
42020 
43040 
43000 
40050 
42010 
4007 
40040 
40040 
42030 
43250 
42020 
40000 
42010 
43250 
130 
120 



42030 43020 43140 

42010 43100 43130 

40010 40020 41000 41010 42000 43040 

41000 41010 42010 43130 



42500 

40020 

42050 

40020 

43500 

41000 

41000 

42030 

42030 

43100 

43100 

40060 

42070 

42070 

40050 

40060 

42040 

43500 

42030 



42510 
40030 
42750 
40070 
43510 
41010 
41010 
42800 
43 010 



42520 
40050 
43160 
40080 
43520 



43100 
43140 



43500 
40060 
43750 
42050 
43750 



43510 
4007 



43520 
40080 



41000 41010 



42070 42500 42510 42520 42750 43160 



43140 43800 



42070 43250 ^^,^ 

42500 42510 43130 43250 43500 43510 

43250 

42050 42070 42500 42510 42520 42750 43140 43150 43160 
43510 43520 43750 
43030 43140 



42050 42060 42070 42500 

43500 43510 43520 43750 

140 150 15010 43000 

130 160 15000 15010 



42510 42520 42750 43130 43160 43170 
43010 43020 43030 43040 



10 DR TH fl .. 2 .. 3 .. 4 .■ t> .■ fc .■ ?' .■ 3 .• 9 .. 1 U . J .• U .• K 

20 DFlTfl.. .. .. 1 .. .. .. •■ 1 .■ .. .■ •■ .' .' 1 •• 1 •■ •■ ■• i •■ •■ •■ 1 •■ 2.- •• .■ ■• •■ ■■2.. 2.. .. .. 1 .. .■ .. 2 

30 DflTFi2... .2.. .. ..2..2..1.. ..2.. ..2..2.. ..2.. .2...2.2.. .2.. 1..2.. .2.2.. l.^.^ii.. 1..2 

4fi DfiTfl" ^ zr ".." w'au S3 ".-" iB^snna " 

50 DflTFi" w>wM ".■'■' -^zrmzi " .. „ 

60 DflTfl" n BiS "." w ^".." n ".," -rai i %" s * ;;■" ^£>:>o^ 

80 DFlTfl" iW^ ".." 1. Sr ".." II t %■• ^ '^" 

9H nriP;! IB40000 -....r-r-, r- 

1 flfl PR I NT ■■ n" TAB <:. 1 > " S»::flRri UT I L I TV " ■ PR I NT " Wl . D I SPLfl V CflRDS " ■ PR I NT " fU . SHUFFLE 
1 i fl PR I HT " m . SUBROUT I NE FOR GAMES " : PR I NT " m. QUIT": PR I NT " WiJlSBELECT I ON ? " ; 

1 20 GETZ* : I FZ$= " " THEN 1 20 

1 30 Z= VflL i Z$- > : PR I NTZ : I FZ< 1 0RZ>4THEN 1 00 

140 IFZ=4THENEND 

1 50 ONZnn:-;l IE42fi00 .. 4 1 000 .• 43000 : PR I NT " WaOONE—H I T fl KEV 

160 GETZi:iFZ*="" THEN 160 

170 GOTO 100 

IPifiOO INPUT" ^Hl" ; Z$ : I FZ*="1" THEN 15000 ^REM INPUT SBR. 

1 Fiii 1 Z= VflL < Z* > : RETURN ^ ^ _ ^ , 

4mm I =RND c -T I * 1 E9 > ■ J=0 ■ D;i=0 ■ J'i=0 ■ K;i=0 ■ REM I N I T I flL I .iHT I UN 

40010 INPUT "NUMBER OF DECKS llHr'.;D"i _ 

40020 D I MD;^: •:: D"i*52 > : FOR I = 1 TOD'i : FORJ=0TO5 1 : WA < 52* < I - 1 > +J > =J ■ HEKTJ .. I : Ii.-;=D.-;*5;=:- 1 

40030 D I M I $ < 1 3 ::• : FOR I = 1 TO 1 3 : READ I $ U > ^ NEKT I 

40040 Sl$=" -!•♦## ":S2$=" # ^ * ♦♦ ♦♦ ♦" 

40050 DIMS*<2. 3> : FORI=0TO3 : S*<:0. 1 >=" " : S$a .. I >=MID*'::S1*. 1*4+1 . 7.) 

40Pi60 S$ < 2 .. I ':■' =M I D* < S2$ .. I *6+ 1 .. 7 > : NEKT I 

4^070 D I MS"i '• 1 .. 7 > ■■ FOR I = 1 TO 1 ■ FORJ= 1 T07 : READS";' ■:: I .. J > : NEKT J .. I 

40080 D I MFf- ■:: 3 .. 7 ;• ■ FOR I = 1 T03 : FORJ= 1 T07 : REflDF* <. I .. J > : NEKTJ .. I 

40090 RETURN 

40999 REM SHUFFLE 

4 1 000 FOR I =0TOD?; : J?^= C D^+ 1 - 1 > *RND < 1 > : K"i=D;; < J>i > 
41010 D':<J'0=D^;';D'i-I>:D"i<D";-D=K';: NEKT I: RETURN 
41999 REM DISPLAV ALL CARDS 

42^00 PR I NT " 71" ■■ C';'=0 : FORL=0TOD';; : C;^:=C.-i+ 1 : 

42010 s^:=d;^ < c;i- 1 > /1 3 • ''/K=BX < c;;- 1 > - 1 3*s?i+ 1 

42030 I FL/A;;= I NT ■:: OfiK > THENT';=TB"i : PR I NTLEFT* <. " nmmmmSimmm" .. L-; > ■■ GOTO42050 

42040 T;;=T.-;+8 : PR I NT " .' 1 1 1 1 1 1 1 1 1" ; 

42050 PR I NTT AE < JK > " S" LEFT* <. I * ( V"; > + " " .- 7 > ■ FOR.J= 1 T07 

42060 I FV";> 1 0THEN42500 

42070 PRIHTTflBa?i>"a"Sf<S"XV/i. J>..S^> :GOTO42750 

42500 I F.T= 1 THENPR I NTTAE < JK > " 3 " M I D* ■:: " #♦♦* " .. S;;+ 1 .. 1 > Ft- < '-/K- 1 .. J > : GOTO42750 

42Fv i I FJ=7THENPR I NTTAB < T"i > " SJ" F* < V"i- 1 .. J > " S" M I D$ ■:: " ^tt * " .. S^+ 1 .. 1 > " " : GOTO42750 

42520 PRINTTAB<T;^>"S"F$<V:^-10.J> 

42750 NEKTJ:PRINTTAE<:T^::'"S"RIGHT$'::" " + I*'::V';::'.. 7> 

42800 NEKTL: RETURN 

42999 REM GAME-TVPE SUBROUTINE 

43000 PR I NT "mow MflNV CflRDS TO PRINT" ;: GOSUE 15000 : P"i=Z 
430 1 PR I NT " START ON L I NE >: 1-16 > " .: ■■ GOSUE 1 5000 : L;i=Z 
43020 PR I NT "HOW MflNV ACROSS <A~5>"i :GOSUB15000-- A"i=Z 
43030 PR I NT "START AT TAB •::0-32::'" .: •GOSUE 15000 :TE.v=Z 

43040 M-i=D";+ 1 ■■ PR I NT " SHUFFLE AFTER •:: 1 - " MJ-i " > " ; ■ GOSUB 1 5000 ■ M?-i=Z 

43 1 00 PR I NT " 72" ■ C";=0 : FORL=0TOP";- 1 : CV=C'i+ 1 : I FC"i=M";+ 1 THENC'i= 1 : G0SUB4 1 000 

43130 s^=D?i'::c;;-i>/i3:v^=D;-;';c;^:-n-i3*s;^+i 

43 1 40 I FL/A";= I NT ■: L/A";' > THENT;i=TE'i : PR I NTLEFT* < " 7immMmmamMm" .. LK > : G0T043 1 60 

43150 t;;=t;;+8 : PR I NT " : n 1 1 n 1 1 5" ; 

43160 PRINTTAE<T/i>"a"LEFT*a*'::V;i> + " ".. 7> :F0RJ=1T07 

43 1 70 I F V"i> 1 0THEN43500 

43250 PR I NTTAE ■:: T'i > " 3" S* C S"i C VM . J > . SJ; > : GOTO43750 

43500 I F.T= 1 THENPR I NTTAB < TJi > " :^ " M I D$ ■:: " *♦#♦ " .. SK+ 1 .. 1 > F* •:: '■/>:- 1 .■ J > ■ GOTO43750 

435 i I F J=7THENPR I NTTAE <. T"i > " St" F$ <. V'i- 1 .. J > " Zi" MID* < " -^tt* " .■ S'i+ 1 .. 1 > " " : GOTO43750 

43520 PR I NTTAB < TJO " S" F* < V'i- 1 .. J > 

43750 NEKTJ:pRINTTAE<T'i>"a"RIGHT*<" " + It<V;0..7> 

43800 NEXTL : RETURN 



PET BASIC T.ABEL SU PPORT INTERFACE 



J. Hoogstraat 

Calgary, Alta 

This amazing routine resides in the second cassete buffer 
and allows the use of labels in basic and has no effect on 
the speed of basic. 

A label starts with a # character and is retricted in 
length to the basic line length. 

EXAMPLE NO T.ABELS 



100 FOR I = 1 TO 3 

110 ON I GOSUB 500, 550, 600 

120 NEXT 

130 GOTO 800 

140 : 

500 PRINT "SUBROUTINE"; I :RETURN 

510 : 

550 PRINT "SUBROUTINE", -I :RETURN 

560 : 

600 PRINT "SUBROUTINE"; I :RETURN 

610 : 

800 PRINT "END OF TEST":END 



EXAMPLE WITH T.ABELS 



10 

20 

100 

110 

120 

130 

140 

500 

510 

550 

555 

560 

600 

610 

800 



SYS826 

FOR I = 1 TO 3 

ON I GOSUB #SUB1, #SUB2 , #SUB3 

NEXT 

GOTO #ALLDONE 

#SUB1: PRINT "SUBROUTINE" ; I : RETURN 

I SUB 2 

PRINT"SUBROUTINE";I :RETURN 

#SUB3:PRINT "SUBROUTINE" ; I :RETURN 

#ALLDONE: PRINT "END OF TEST" : END 

The tlabels can be mixed up with basic statement numbers, 



110 ON I GOSUB #SUB1, 550, #SUB3 

Since the routine resides in the second cassette buffer 
and modifies the basic GET character routine, it prohibits 
the use of any other routines in the second cassette ^buffer 
or the use of the DOS support program, 
part of the DOS support program. 



However it can be made 



I do have available a modified DOS support program which 
includes the following: 

1. Regular DOS support. 

2. The BASIC label support interface. 

3. An excellent repeat key function. 

4. A basic disk append command, no messing around with tapes 

Just send me $20.00 and a floppy and I will return a copy 
of the above including all the assembly source on your 
floppy, or for $27.00 I'll send you a floppy with the same. 

By the way, the # label prefix is my choice and can be 
altered to any other special character. 

Have a lot of Basic fun !!! 



Editor's Note: 

Mr. Hoogstraat's routine works on BASIC 2.0 only. To 
convert to BASIC 4.0, some JSRs would need changing. Also, 
the program could no longer reside in the second cassette 
buffer. This space is used by some new BASIC 4.0 commands. 



800 


FOR J=826 


TO 1008 : 


READ 


X :POKE J, X : 


NEXT 


















826 


DATA 


169, 


71 


r 133, 


113, 


169, 


3 




















832 


DATA 


133, 


114 


r 169, 


76, 


133, 


112 




















83b 


DATA 


96, 


230 


r 119, 


208, 


2, 


23 




















844 


DATA 


120, 


164 


r 55, 


200, 


208, 


3 




















850 


DATA 


76, 


118 


0, 


160, 


0, 


177 




















856 


DATA 


119, 


201 


r 35, 


208, 


245, 


186 


M 033A 03F0 














862 


DATA 


189, 


1 


1, 


201, 


62, 


240 




















86 8 


DATA 


24, 


201 


r 172, 


240, 


20, 


201 


: 033A 


A9 


47 


85 


71 


A9 


03 


85 


72 


874 


DATA 


143, 


240 


r 16, 


201, 


105, 


208 


: 0342 


A9 


4C 


85 


70 


60 


E6 


77 


DO 


880 


DATA 


107, 


32 


, 112, 


0, 


201, 


44 


: 034A 


02 


E6 


78 


A4 


37 


C8 


DO 


03 


886 


DATA 


208, 


249 


, 104, 


104, 


76, 


95 


: 0352 


4C 


76 


00 


AO 


00 


Bl 


77 


C9 


892 


DATA 


200, 


200 


r 166, 


40, 


165, 


41 


: 035A 


23 


DO 


F5 


BA 


BD 


01 


01 


C9 


898 


DATA 


208, 


8 


, 160, 


0, 


177, 


92 


: 0362 


3E 


FO 


18 


C9 


AC 


FO 


14 


C9 


904 


DATA 


170, 


200, 


r 177, 


92, 


134, 


92 


: 036A 


8F 


FO 


10 


C9 


69 


DO 


6B 


20 


910 


DATA 


133, 


93. 


133, 


91, 


177, 


92 


: 0372 


70 


00 


C9 


2C 


DO 


F9 


68 


68 


916 


DATA 


208, 


3, 


76, 


235, 


199, 


24 


: 037A 


4C 


5F 


C8 


C8 


A6 


28 


A5 


29 


922 


DATA 


165, 


92, 


, 105, 


4, 


133, 


90 


: 03 82 


DO 


08 


AO 


00 


Bl 


5C 


AA 


C8 


928 


DATA 


144, 


2, 


, 230, 


91, 


136, 


177 


: 03 8A 


Bl 


5C 


86 


5C 


85 


5D 


85 


5B 


934 


DATA 


90, 


32, 


, 226, 


3, 


133, 


89 


: 0392 


Bl 


5C 


DO 


03 


4C 


EB 


C7 


18 


940 


DATA 


177, 


119, 


200, 


32, 


226, 


3 


: 039A 


A5 


5C 


69 


04 


85 


5A 


90 


02 


946 


DATA 


197, 


89, 


, 208, 


206, 


201, 





: 03A2 


E6 


5B 


88 


Bl 


5A 


20 


E2 


03 


952 


DATA 


208, 


235, 


104, 


104, 


186, 


189 


: 03AA 


85 


59 


Bl 


77 


C8 


20 


E2 


03 


958 


DATA 


255, 


0, 


201, 


143, 


208, 


21 


: 03B2 


C5 


59 


DO 


CE 


C9 


00 


DO 


EB 


964 


DATA 


165, 


120, 


72, 


165, 


119, 


72 


: 03BA 


68 


68 


BA 


BD 


FF 


00 


C9 


8F 


97U 


DATA 


165, 


55, 


72, 


165, 


54, 


72 


: 03C2 


DO 


15 


A5 


78 


48 


A5 


77 


48 


976 


DATA 


169, 


141, 


72, 


169, 


198, 


72 


: 03CA 


A5 


37 


48 


A5 


36 


48 


A9 


8D 


982 


DATA 


169, 


195, 


72, 


32, 


205, 


199 


: 03D2 


48 


A9 


C6 


48 


A9 


C3 


48 


20 


988 


DATA 


32, 


0, 


200, 


76, 


118, 





: 03DA 


CD 


C7 


20 


00 


C8 


4C 


76 


00 


994 


DATA 


201, 


32, 


240, 


8, 


201, 


58 


: 03E2 


C9 


20 


FO 


08 


C9 


3A 


FO 


04 


996 


DATA 


240, 


4, 


201, 


44, 


208, 


2 


: 03EA 


C9 


2C 


DO 


02 


A9 


00 


60 


00 


998 


DATA 


169, 


0, 


96 



























033A- 

033C 

033E 

0340 

0342 

0344 

0346 



A947 
8571 
A903 
•8572 
A94C 
•8570 
■60 



0347- 
0349- 
034B- 

03 4D 
034F 
0350 



-E677 
-D002 
-E67 8 

-A437 

-C8 

-D003 



0352-4C7600 



0355- 
0357 
0359 
035B 



035D' 
035E' 



-AOOO 
-B177 
-C923 
-D0F5 



0010 

0020 

0030 

0040 

0050 

0060 

0070 

0080 

0090 

0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270HOOKUP 

0280 

0290 

0300 

0310 

0320 

0330 

0340; 

0350; 

0360; 

0370LABELS 

03 80 

0390 

0400; 

0410 

0420 

0430 

0440; 

0450NLABEL 

0460; 

0470LABEL1 

0480 



.OS 
.BA 



$33A 



-BA 
-BDOlOl 



- BASIC LABEL SUPPORT INTERFACE - 



SYS826 ACTIVATES THE BASIC LABEL 
SUPPORT INTERFACE AND ALLOWS THE 
USE OF LABELS IN BASIC FOR 'GOTO' 
'THEN' AND 'GOSUB' STATEMENTS. 

A LABEL IS PREFIXED WITH A 
# CHARACTER AND TERMINATES 
WITH A BLANK, COMMA OR COLON. 

BY J.HOOGSTRAAT 

BOX 20, SITE 7, SS 1 
CALGARY, T2M-4N3 
ALBERTA. 403-239-0900 



HOOK UP THE BASIC LABEL INTERFACE 



LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 



#L , LABELS 

♦GETCHR+1 

#H, LABELS 

♦GETCHR+2 

#$4C 

*GETCHR 



BASIC LABELS SUPPORT INTERFACE 



INC 
BNE 
INC 

LDY 
I NY 
BNE 



*CHAD 

=+3 

*CHAD+1 

*CLIN+1 

LAB ELI 



JMP GOTCHR 



LDY 
LDA 
CMP 
BNE 



«0 

(CHAD) ,Y 
#'# 
NLABEL 



;D0 MISSING PART 
;0F GETCHR. 



IMMEDIAT MODE ? 
NOT IMMEDIAT. 
NORMAL CONTINUE. 



# PREFIX ? 



0490 

0500 

0510; 

0520; DECIDE ON WHAT ACTION TO TAKE 

053 0; 

0540CHKLAB TSX 

0550 LDA 

0560; 



;N0 PREFIX, EXIT. 



$101,X ;GET STACK VALUE, 
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0361- 
0363- 

0365- 
0367- 

0369- 
036B- 

036D 
036F 



-C93E 
-F018 

-C9AC 
-F014 

■•C98F 
■FOlO 

-C969 
-D06B 



0371-207000 

0374-C92C 

0376-D0F9 

0378-68 

0379-68 

037A-4C5FC8 

STUFF. 



037D-C8 
037E-A628 
0380-A529 
0382-D008 

03 84-AOOO 

0386-B15C 

STATEMENT. 

0388-AA 

0389-C8 

03 8A-B15C 

038C-865C 
038E-855D 
0390-855B 

0392-B15C 

6394-DOO3 

0396-4CEBC7 

0399-18 
03 9A-A55C 
BASIC 
039C-6904 

039E-855A 
03A0-9002 
03A2-E65B 

03A4-88 



0570 

0580 

0590; 

0600 

0610 

0620; 

0630 

0640 

0650; 

0660 

0670 

06 80 

06 90 
0700 
0710SCOMMA 
0720 

0730 
0740 
0750 
0760 

0770; 

07 80; GOTO, 
07 90 ; 

0800FLABEL 
0810 

0820 

0830 

840; 

0850NXSTAT 

0860 

0870 

0880 

0890 

0900; 

0910CKSTAT 

0920 

0930 

0940; 

0950 

0960 

0970; 

0980 

0990; 

lOOOCKSTATl 

1010 

1020 

1030; 

1040 

1050 

1060 

107 0; 

1080 



CMP tS.THEN 
BEQ FLABEL 

CMP #S.GOTO 
BEQ FLABEL 

CMP #S.GSUB 
BEQ FLABEL 

CMP #S.ONDO 
BNE SKPLAB 



ON. DO ACTION 



JSR GETCHR 

CMP # ' , 

BNE SCOMMA 

PLA 

PLA 

JMP ON. RET 



; BASIC THEN ? 
;yES, FIND LABEL. 

; BASIC GOTO ? 
;YES, FIND LABEL. 

; BASIC GOSUB ? 
;YES, FIND LABEL. 

; BASIC ON. DO ? 
;N0, IT'S A LABEL, 



FOR ON. DO 
STATEMENT GET PAST 
THE COMMA. 



; RETURN TO ON. DO 



THEN OR GOSUB ACTION 

INY 

LDX *BSTR ;COPY START ADDRESS 

LDA *BSTR+1 ;0F BASIC. 

BNE CKSTAT ;G0 CHECK FIRST STAT. 

LDY #0 ;SET ADDRESS OF NEXT 
LDA (CLAD) ,Y ; BASIC 

TAX 
INY 
LDA (CLAD) ,Y 

STX *CLAD ; SETUP CURRENT 

STA *CLAD+1 ; BASIC LINE ADDRESS. 

STA *TMP2+1 

LDA (CLAD) ,Y ; END OF BASIC 

BNE CKSTATl ;N0, CONTINUE. 

JMP UNDEFD ;UNDEF'D STATEMENT. 

CLC ;GET PAST NEXT BASIC 

rLINE ADDRESS AND 



LDA *CLAD 

ADC #4 

STA *TMP2 
BCC =+3 
INC *TMP2+1 

DEY 



STATEMENT NUMBER. 
SAVE THE ADDRESS. 
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03A5-B15A 

03A7-20E203 

03AA-8559 

03AC-B177 

03AE-C8 

03AF-20E203 

03B2-C559 

03B4-D0CE 

03B6-C900 
03B8-D0EB 
MATCHING. 

03BA-6 8 
03BB-6 8 

03BC-BA 

03BD-BDFF00 

FOUND. 

03C0-C98F 

03C2-D015 



1090; 

1100; SEARCH 

1110; 

1120MATCH 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200; 

1210 

1220 

1230; 

1240 

1250 

1260; 

1270 

1280 



BASIC FOR MATCHING LABEL 



03C4- 
03C6- 
03C7- 
03C9- 
03CA- 
03CC- 
03CD- 
03CF 
03D0 
03D2 
03D3 
03D5 
03D6 
03D8 



■A57 8 

-48 

-A577 

■48 

-A537 

-48 

-A536 

-48 

-A98D 

-48 

-A9C6 

-48 

-A9C3 

-48 



03D9-20CDC7 
03DC-2000C8 
03DF-4C7600 



03E2-C920 
03E4-F008 
03E6-C93A 
03E8-F004 
03EA-C92C 
03EC-D002 



LDA (TMP2),Y 
JSR CORRECT 
STA *TMP1 
LDA (CHAD) ,Y 
I NY 

JSR CORRECT 
CMP *TMP1 
BNE NXSTAT 

CMP #0 
BNE MATCH 



PLA 
PLA 

TSX 

LDA $FF,X 



; CHECK IF THE 
; LABEL MATCHES THE 
; SPECIFIED LABEL. 



;N0 MATCH FOUND. 



;END OF LABEL ? 
;N0, CONTINUE 



; MATCHING LABEL 



CMP 
BNE 



#S.GSUB 
NOSUB 



1290 

1300 

1310; 

1320; STACK CORRECTION FOR GOSUB 

1330; 

1340 

1350 

1360 

1370 

13 80 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 

14 80; 
14 90 NOSUB 
1500; 

1510SKPLAB 
1520; 

153 0NOPREFIX 
1540; 

1550; LABEL CHARACTER CORRECTIONS 

1560; 

15 70 CORRECT CMP 

1580 BEQ 

1590 CMP 

1600 BEQ 

1610 CMP 

1620 BNE 



; GOSUB ACTION ? 
;N0, THEN OR GOTO, 



LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 



*CHAD+1 



♦CHAD 



*CLIN+1 



*CLIN 

#$8D 

#H , SUBRET 

#L , SUBRET 



JSR SETLAD 



SET LINE ADD. 



JSR SKPSTT ;SKIP STATEMENT. 
JMP GOTCHR ;BACK TO BASIC. 



#• 

CORRECT 1 
#': 
CORRECTl 

#'r 
C0RRECT2 
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03EE-A900 
03F0-60 



1630CORRECT1 

1640CORRECT2 

1641; 

1642; SYSTEM 

1650; 

1660CLIN 

1670BSTR 

16 80 CHAD 

1690CLAD 

1700; 

1710GETCHR 

1720GOTCHR 

1730; 

17 40 S. THEN 

17 5 OS. GOTO 

1760S.GSUB 

1770S.ONDO 

17 80 ; 

17 90UNDEFD 

1800SETLAD 

1810SKPSTT 

1820; 

1830ON.RET 

1840SUBRET 

1850; 

1860TMP1 

1870TMP2 

1880 



LDA #0 
RTS 

ADDRESS EQUATIONS 



.DI 
.DI 
.DI 
.DI 



$36 
$28 
$77 
$5C 



,DI $70 

.DI $76 

.DI $3E 

.DI $AC 

.DI $8F 

.DI $69 

.DI $C7EB 

.DI $C7CD 

.DI $C800 

.DI $C85F 

.DI $C6C3 

.DI $59 

.DI $5A 
.EN 



; BASIC CURR LINE NO 

; BASIC START ADD 

; BASIC CURR CHAR ADD 

; BASIC CURR LINE ADD 

;GET NEXT CHAR ROUT 
;GET CURR CHAR ROUT 

STACK KEY 'THEN' 

STACK KEY 'GOTO' 

STACK KEY 'GOSUB' 

STACK KEY 'ON. DO' 

;UNDEF'D STAT ERR 
;SET NEW LINE ADD 
;SKIP REST OF STAT 

;ON.DO RETURN ADD 
; GOSUB RETURN ADD 

;WORK SPACE 
;WORK SPACE 



HOOKUP 

NLABEL 

CHKLAB 

FLABEL 

CKSTAT 

MATCH 

SKPLAB 

CORRECT 

C0RRECT2 

BSTR 

CLAD 

GOTCHR 

S . GOTO 

S.ONDO 

SETLAD 

ON . RET 

TMPl 



033A 
0352 
035D 
037D 
03 8C 
03A5 
03DC 
03E2 
03F0 
0028 
005C 
0076 
OOAC 
0069 
C7CD 
C85F 
0059 



LABELS 

LABELl 

S COMMA 

NX STAT 

CKSTATl 

NOSUB 

NOPREFIX 

CORRECT 1 

CLIN 

CHAD 

GETCHR 

S.THEN 

S.GSUB 

UNDEFD 

SKPSTT 

SUBRET 

TMP2 



0347 
0355 
0371 
0384 
0399 
03D9 
03DF 
03EE 
0036 
0077 
0070 
003E 
008F 
C7EB 
C800 
C6C3 
005A 
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RARTC 4.0, nns 2.0 ^n^ The R platiive Record System 

Commodore is now distributing computers ^nd disks with 
new operating systems. These are, of course, BASIC 4.0 and 
SSs 2^0 bS? mJny users that have BASIC 2.0 and DOS 1.0 are 
asking themselves, "Should I upgrade ?" . 

The new operating systems offer many advantages over the 
old, but there are cases where upgrading may hurt more than 
help This would refer to those who 1) have a working system 
performing without mishap, and 2) don't do any programming of 
their own: More specifically, this would be businesses that 
have aquired equipment and a custom program (s) to perform 
special tasks. There are suttle differences in the new 
systems that may cause discrepencies once upgraded. However, 
this does not rule out the possibility of upgrading. Higher 
capacity may be necessary to maintain your systems 
efficiency. This would mean a "forced" upgrade to the 8050 
disk, which contains the new DOS, and program modification 
may be required. 

Serious programmers, on the other hand, should consider 
upgrading as seriously as their programs. Some new features 
are: 

BASIC 4.0 

1. Garbage collection time has been reduced to negligible. 

2. Shifted RUN/STOP loads and runs first disk file. 

3. Disk error channel read automatically into DS and DS$, 
same as TI and TI$ read the clock. These new variables 
are one reason programs may require mods. See article 
this issue on converting. 

4. PRINTt command omits line feed after carriage return on 
files OPENed with a logical file number less than 128; 
128 or greater still sends CRLF. 

5. Disk commands now included in the BASIC. Although BASIC 
2.0 could handle the disk, PRINT#ing to the command 
channel was somewhat clumsy. 



BASIC 2.0 

LOAD "prog", 8 

SAVE"l:prog",8 

VERIFY"l:prog",8 

OPEN 2,8,6,"l:file,s,w' 



CLOSE 2 

L0AD"$1",8:LIST 
PRINT#15 , "Nl : title, XX" 
'• "Slrprog" 
"VI" 
"D1=0" 
» • "Rl:f ile=l:prog 
' • "Cl:prog=0:prog 



BASIC 4.0 



DLOAD"prog" 
DSAVE"prog",dl 
VERIFY"l:prog",8 
DOPEN#2,"file",u8,dl,w 



DCL0SE#2,dl ON u8 



;defaults to dO 
;no change 
;defaults unit 8, 
omit w for read 
no change for USR files 
;omit "#2" and "dl" and 
close all files ON u8 
DIRECTORY dl or CATALOG dl 
HEADER"title" ,dl , ixx 
SCRATCH"prog",dl 
COLLECT dl 
BACKUP do TO dl 
RENAME "prog",dl TO "file",dl 
COPY "prog", do TO "prog",dl 
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Direct access disk commands do not change in BASIC 4.0 (i.e. 
format is still PRINT#15 , "ul" , b-a, b-p, etc.) but do change 
in DOS 2.0. (see DOS 2.0 below). Also note that the 
INITIALIZE command does not get keyword priveledges in BASIC 
4.0. BASIC 4.0 was designed to work best with DOS 2.0 which 
does automatic initializes. BASIC 4.0 also has other 
commands that work only with DOS 2.0: 

APPEND#2,"file",dl 

CONCAT "more data",dO TO "existing data",dl 

REC0RD#2, 3000, 5 

The APPEND* command OPENs an existing file for writing. 
DOS 2 positions to the end of that file such that data can be 
"appended" . 

The CONCAT command concatenates one file "TO" another 
existing file (SEQ type files only). Concatenating was 
possible with the DOS 1.0 'Copy command, but an extra 
sequence of scratch and rename commands would be necessary to 
accomplish the above: 

D0S2 CONCAT "more data",dO TO "existing data",dl 
DOSl PRINT#15,"Cl:temporary=l:existing data,0:more data" 
PRINT#15,"Sl:existing data" 
PRINT#15,"R1: existing data=l: temporary" 
PRINT#15 , "SO : temporary" 

Thanks to DOS 2.0, a single BASIC 4.0 command does it all! 
But remember, DOS 2.0 does the work; BASIC 4 only sends the 
command string to the disk command channel. 

RECORD* works the DOS 2 Relative Record System. This 
feature of the new DOS makes it virtually indispensable! 

Although the above three ^commands belong to BASIC 4.0, 
they can be simulated with BASIC 2.0, however, DOS 2.0 must 
be in the disk for them to work. (See article on DOS 2.0 
commands from BASIC 4.0) 

DOS 2.0 

1. Automatic initializing. 

2. "@" SAVE with replace fixed. 

3. Formatting and Duplicating approximately 5 times faster. 

4. Directory track and 6 other tracks have 1 less sector for 
144 directory entries max and 664 blocks free max. It 
was felt that the recording density for DOS 1.0 diskette 
middle tracks was too high for reliability. DOS 1.0 
diskettes will require converting to work on DOS 2.0 (see 
COPY command below) . Although both diskette types can be 
read on either DOS, writing DOS 2 diskettes with DOS 1 is 
fatal. DOS 2 doesn't allow writing to DOS 1 disks. 
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5. RENAME command fixed. 

6. COPY command now allows default characters. (e.g. COPY 
"fi*",dO to "*",dl would copy all files starting with 
"fi- on dO to the same name on dl. Also COPY dO TO dl 
copies all files over... good for converting DOS 1.0 
diskettes to DOS 2.0 diskettes) 

7. "B-W" direct access commands removed; use "U2" instead. 
All others remain the same. 

8. Sector byte zero now accessible from B-P command. 

9. Error channel cleared on receiving correct command 
syntax. DOS 1 left the error light on until completion 
of a successful command (excluding LOAD"$0",8 ). 



The Relative Reco rd File System 



Built in to the new DOS 2.0 is a filing system known as 
The Relative Record System. It's called Relative Record 
because each record is relative to another. 

When a relative file (type REL on directory) is created, 
each record will have the same byte length. The length of 
the records are chosen by the user and can be any length 
between 1 and 254. No bytes are wasted which means, in most 
cases, records will span sector boundaries. 

Essentially, a REL file is like an SEQ file with entry 
points. These entry points are stored in "side sectors" 
which take up space on the disk, but are transparent to the 
user. Each side sector can handle up to 30K with a maximum 
of 6 side sectors. This limits. REL files to 180K, but since 
2040 diskettes are 170K, a REL file could use up the whole 
disk. The 180K limit also applies to the 8050. 

The speed of the system is incredible; maximum 3 block 
reads to access any record, regardless of file size. 

A maximum of three REL files can be open on the disk 
simultaneously provided no other files are open. 

The command set associated with REL files is: 

DOPEN# 

RECORD* 

INPUT# 

GET* 

DCLOSE* 

REL files can be COPYd, SCRATCHed, RENAMEd, etc., just 
like any other file. Treat them no differently than any 
other file, but with the same amount of respect. REL files 
must be DOPENd and DCLOSEd properly, using ST and DS/DS$ for 
file status interrogation. 
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Example Set-Up 

First you must decide how many bytes maximum your 
information will need. This will be the number of bytes 
maximum per field plus one byte for a carriage return at the 
end of each field. You could save on bytes by not using 
carriage returns but then you must know how to split up the 
record into fields using MID$ upon retrieval. Once again, no 
more than 80 characters without a carriage return. 

Once you've chosen a length or Record Size, put it in a 
variable, say RS. Choose a logical file number, a filename 
and a drive and: 

D0PEN#6, "FILENAME", DO, L{RS) 

You can write or read a REL file once opened. When 
DOPENing for the first time, the record size (RS) must be 
specified. After that the length need not be given. If it 
is, it must be the same as before else a disk error will 
occur and the disk will abort the open attempt. 

On creating the file, the disk precedes to build records 
in disk RAM. These will be empty until you fill them with 
data. An empty record starts with CHR$(255) followed by RS-1 
CHR$(0)'s. (see note 1 below) 

You are now ready to store data. The DOPEN 
automatically positions to record number 1. After a PRINT! , 
the DOS will position to record 2. This means that placing 
multiple strings into a single record must be done using one 
PRINT* statement, else the strings will go into successive 
record numbers. Assuming R$=CHR$(13) . . . 

DO 100 PRINT#6,"HELL0"R$;A$;R$;B$;R$;X%;R$; 

DON'T! 100 PRINT#6,"HELL0"R$; 

110 PRINT#6,A$;R$; 

120 PRINT#6,B$;R$; 

13 PRINT#6,X%;R$; 

This would put "HELLO" in record #1, A$ in record 2, B$ in 
record 3 and X% in record #4. 

This could be a drawback, especially if your variables 
are in an array and you wish to use a loop to output all to 
the same record #. This brings us to the RECORD* command. 

RECORD#LF, (RR) , (PN) 

RECORD* tells the file (LF) to position to record number 
RR at byte position PN within the record. The variable PN 
can be from 1 to 254. Variables in the RECORD* command must 
be enclosed in brackets. Output using a loop might look 
like: 



17 



100 PN=1 . ^. -.^ 

110 FOR J=l TO NF ;NF=number of fields 

120 REC0RD#6,{RR) ,(PN) 

130 PRINT#6, FL$(J);R$; 

140 PN=PN+LEN(FL$(J))+1 ; +1 for carriage rtn 

150 NEXT 

The ";R$;" in line 130 could be left off since this would be 
handled by BASIC. 

Another method would be to concatenate the fields into 
one string and output: 

100 FL$="" 

110 FOR J=l TO NF 

110 FL$ = FL$+FL$(J)+R$ 

120 NEXT 

130 PRINT#6,FL$ 

Remember... strings in memory can be length 255 max. Max REL 
record length is 254. If you print a string to a REL record 
that is longer than the record length, an OVERFLOW IN RECORD 
error will occur in the error channel. BDT, the first RS 
characters of the string will make it into the record; the 
rest will be lost. Should this happen, there probably won t 
be a carriage return at the end of the record. That doesn't 
matter. You will still be able to retrieve this data. As a 
matter of fact, carriage returns are not necessary at the end 
of a record, even if the data doesn't fill the record! "But 
why?", you ask.... 

REL Record Retr ieval 

As mentioned earlier, an empty record starts with 
CHR$(255) followed by RS-1 CHR$(0)'s. This is done by the 
DOS. 

Let's say our record size is 50. If we take the 
characters H, E, L, L, and 0, and send them into REL REC #1 
starting at position 1 without a carriage return, 
(i.e. PRINT#6, "HELLO"; ) the DOS would do as it's told and 
put "HELLO" into REL REC #1 with no carriage return. Not too 
surprising, eh. However, once that's done, the DOS precedes 
to "pad" the remainder of the record with CHR$(0)'s; in this 
case 45 of 'em. The DOS is now positioned at REL REC #2. 

Now let's say we position back to REL REC #1 with a 
REC0RD#6,1 command. 

The INPUT# command stops on carriage return or EOI. ST 
is set to 64 on EOI, otherwise ST = 0. (see note 2 for 
details) 

If we now execute an INPUT*, the DOS sends the H, E, L, 
L, and 0. But when the DOS sees the CHR$(0) it also sends 
EOI which is just as good as a carriage return. ST is set to 
64 and the DOS positions automatically to the next 
record; REL REC #2. 
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The DOS would also send EOI if the character being sent 
was from the last position in the record. In this case the 
record is not full, but this means that the character in the 
last position doesn't have to be a CHR$(13). You can save 1 
byte per record this way. For 2500 records that's almost 10 
full blocks! 

Back to our example, INPUT# terminated when the DOS saw 
CHR${0) and sent EOI. This has further ramifications. 
Suppose you were to execute something like: 

100 REC0RD#6, 1, 1 

110 PRINT#6, "HELLO"; ;or "HELLO" ;R$; 

120 REC0RD#6, 1, 20 

130 PRINT#6,"JIM"; 

there would be CHR$(0)'s left in between "HELLO" and "JIM". 
"JIM" would be lost forever to INPUT*, unless you position 
back to it using RECORD* before INPUT*ing. Otherwise, only 
GET* could get it back. The DOS does not send EOI with 
CHR$(0) when using GET*. 

Therefore, if you're anticipating blanks between data, 
or blank fields representing no data, it's best to construct 
the record in RAM first using spaces as field padding. 
Remember though, leading spaces will PRINT* to the disk, but 
INPUT* (as with INPUT) ignores them. Leading spaces include 
spaces at the beginning of a record and spaces immediately 
following a carriage return within a record. 

Printover 



Recall that the PRINT* command sends the characters into 
the record and then pads to the end of the record with 
CHR${0)'s. This can be hazardous, especially if valid data 
exists beyond the data being sent into the record. This data 
would be wiped out with zeros. One more reason why you 
should construct the record in RAM first. You could get 
around this by putting the new data into the disk buffer with 
a "Memory-Write" routine, but that's fairly advanced and we 
won't cover that here. 

End Of File Detection 

The following routine could be used to read the entire 
contents of a REL file: 

10 D0PEN*8,"FILE NAME" 

20 INPUT*8,A$ 

3 PRINT A$ 

40 IF DS=50 THEN DCL0SE*8 : END 

50 GOTO 20 

On DOPENing, the file positions to record 1 and automatically 
positions to successive records after INPUT*ing each records' 
valid data. This would continue until reaching a record that 
hasn't yet been formatted . DS/DS$ would read 50, RECORD NOT 
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PRESENT But the last record used isn't necessarily the last 
recofd k^^tsd. (see note 1.) Storing 'h^ "^^"^."^JJ^, 
last record used would take care of that. Give it a Sty riie 
if it's own and update it every time it changes using @ 
write with replace. 

Empty files start with CHR$(255). This ^^ts .^ff .^^ ^^f 
T^r^c ir.i\■ii^^^7 hilt if a record DELETE is done, this empty 
t°% Should "^ be replaced ( i.e. PEINTtl f , CHRS ( 255 ) ) . Thr s 
"tilable file space can then be detected for future use. 

One Minor Gotcha 

When a REL file is DOPENed for the first time , only one 
sector is allocated for data. If the f il^ ^1 ^^borted (i.e 
no DCLOSE, DIRECTORY display, reset, etc.) before the DOS 
allocates a second data sector, the side sector information 
^opqn't aet written to the disk. That second data sector 
anoSation forces the side sector onto the disk, but DCLOSing 
properly will always prevent this. 

To be absolutely sure, although probably unecessary, the 
following routine could be used: 

50000 DOPEN#lf ,"FILE NAME" ,D0 ,L(RS) 
50010 RECORDtlf ,(INT(254/RS)+1) 
50020 PRINT#lf,CHR$(255); 
50030 DCLOSE#lf 
50040 RETURN 

The fix actually defeats its own purpose as the file is 
properly DCLOSEd in line 50030! 

This would only have to be done once and your file is 
ready for I/O. Once againg, the record size (RS) need only 
be given in the very first DOPEN. 



NOTE 1 



When a REL file is created, the DOS goes looking for 
some ^S to use inside the disk unit; ^ 256 byte buffer The 
first two bytes are used to store the track and sector 
numbers of the nejct sector in the REL file just ^ke SEQ 
files. The remaining 254 bytes are for record space, hence 
the 254 byte maximum record size. 

At this point the DOS fills the record space with 
CHR$(0)'s and puts a CHR$(255) "marker" in the first byte of 
each record. This byte would be a multiple of the record 
size If the record size were 50, there would be CHR$(255) 
at bytes 2, 52, 102, 152, 202, and 252 (offset by 2 due to 
track & sector bytes at and 1) . 

If REL REC #1 were currently being written to or read 
from, you could precede to read or write REL RECs 2 , 3, 4, 
and 5 without any mechanical disk activity. Requesting 
record #6 (i.e. RECORD#lf ,6 ,1) would return an error #50, 
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RECORD NOT PRESENT because disk space for a 6th record hasn't 
yet been formatted. But 5 records don't fill the buffer 
completely; there are still 4 bytes left (252-255). These 
belong to record #6. The next PRINT* would start putting 
characters into these 4 bytes, at which point the DOS would 
find another available scetor, stick it's co-ordinates into 
bytes and 1, and write the buffer contents onto the 
diskette. Now the buffer is re-formatted with the first 4£ 
bytes of the record space belonging to record #6. A DCLOSE 
would write the rest of the data to disk. Requesting record 
#3000 would force the DOS to format all records inbetween 
before allowing access to the record. 

NOTE 2 



1. INPUT* continues to input characters from the disk 
until it sees a carriage return {, comma or a colon but we'll 
ignore these here) . The next line of your program should be 
a check of ST. If there is more data, ST will be 0; if not, 
ST will be 64. (see ST table, center page) 

2. INPUT* also terminates on receiving EOI (End Or 
Identify). EOI has a line of it's own on the IEEE bus. 
INPUT* checks this line. If it turns on, then no matter what 
character INPUT* has just received, inputting stops and ST is 
set to 64. 



That all sounds like a lot but it really isn't. The 
Relative Record System is really quite easy to work. Being 
new, it'll take some getting used to. Once you're storing 
data in REL RECS, you'll hate to think how you did it any 
other wayl 
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BASIC 2.0 <-" RAfiTC A.O Conv prsions (40 column) _ 

Paul Higginbottonif 
Commodore U.K. Software Department 

The best way I found to convert programs, was to divide 
all of the programs into four catagories. These are as 
follows: 

1. Programs written entirely in BASIC, with no PEEK, 
POKE, USR, WAIT or SYS statements. 

2. Programs written entirely in BASIC, with PEEK, POKE, 
USR, WAIT and/or SYS statements. 

3. Programs written partly in BASIC and in machine code, 
with PEEK, POKE, USR, WAIT or SYS statements. 

4. Programs written entirely in machine code. 

First, I would like to discuss the utilities I use when 
converting programs. I use BASIC AID for the BASIC 
conversion. This has FIND, CHANGE (something the TOOLKIT 
lacks), NUMBER (renumber), KILL (to exit), DELETE, and BREAK 
(drops you into the monitor). This is a BUTTERFIELD 
abbreviation of our own BASIC AID (MP096, now on sale for 
10 pounds! and has 16 commands - I think), but tor 
BASIC 4.0. Also I use SUPERM0N4 .REL (by 
BUTTERFIELD/WOZNIAK/SEILER/QUITEAFEWOTHERS) which IS an 
add-on to the monitor commands for 4.0, allowing you to hunt 
for code or text, disassemble, assemble, list memory in ASCII 
as well as hex, step through programs with trace or step, 
etc I use a disk unit for conversion, but I should think a 
tape user could do the same sort of thing, only slower. The 
memory maps mentioned below have been published and are 
avaialable in any one of a number of current publications. 

Now I will go through each catagory, one at a time. 

1. This catagory shouldn't need any conversion. 

2 Let's take the POKE statements first. Apart from 
those used to alter the screen RAM (which stay the same) , 
usually the corresponding locations from machine to machine 
can be found by looking at Jim Butterf ield' s memory maps, 
which are public domain documents. The only other problems 
that seem to arise, are when a location. has been POKEd with a 
certain value to make the PET function in a different way. A 
good example of this is the well known one that will disable 
the RUN/ STOP key. If you understand why it works, then 
conversion to BASIC 4.0 is easy. All that is necessary, is 
to add three to the current contents of 144. On a 2.0 PET, 
POKE144,49 will disable the stop key. This is three more 
than its normal contents (46). Therefore POKE144,PEEK(144)+3 
would work on either machine. Just to save you the bother, 
it is in fact POKE144,88 (to disable), and POKE144,85 (to 
enable), on BASIC 4.0 machines. 
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If the program is entirely BASIC, then the USR and SYS 
commands will not be used (unless routines from the ROMs are 
being used) . If ROM routines are being used, again memory 
maps are necessary. 

The WAIT command is generally only used for keyboard 
activity: WAIT152,1 (wait for shift key), and WAIT158,1 (wait 
until bit of the number of keypresses in the buffer is a 1; 
i.e wait until an odd number of keypresses > 0). The two just 
mentioned would be the same on 2.0 and 4.0. 

The USR command would only be used if machine code was 
also used, but that is not covered in this catagory. 

3. All hints made in catagory 2 should be observed for 
this catagory as well. The USR command uses bytes 1 and 2 as 
an indirect address to a machine code routine. The parameter 
in the USR command is 'floated' and put into the first 
accumulator. The address POKEd into the bytes 1 and 2 will 
obviously not need to be changed, but the actual machine code 
routines, will more than likely need to be changed. The 
routines most commonly used by USR routines are FLPINT 
(floating point to integer conversion for accumulator #1, and 
of course INTFLP (the other way round!). The corresponding 
locations can again be found in the Butterfield memory maps. 
Use FIND/POKEl/ to find the USR command set-up statements, 
and work out the hex address. Use SUPERMON to disassemble 
the USR code, and make any changes on the screen (JMP's into 
ROM usually) . You should also know where your program starts 
in memory. To find this out off of a disk unit on a BASIC 
4.0 machine, the following program will do: 

10 INPUT "FILENAME";F$: INPUT "DRIVE ";DR 

20 D0PEN#1,(F$) ,D(DR) :IF DS THEN PRINTDS$:GOTO60 

30 GET#1,A$,B$:N$=CHR$(0) 

40 AD=ASC(A$+N$)+ASC(B$+N$)*256 

50 PRINT "PROGRAM STARTS AT "AD 

60 DCL0SE#1 

You may want to add a little hex converter into the 
program. 

To resave programs that do not start at $0401/1025, you 
would need to drop into the monitor (SYS4 for example) . Then 
you would need to see where your program ends by typing in 
.M 002A 002A <RETURN>. The contents of 002A,002B are the end 
of your program (LOW, HIGH) . Let us say for example that 
.: 002A 40 IB 40 IB 40 IB 00 00 appears. To save your 
program onto drive on disk, you would need to type:- 

.S "0:FILENAME",08,033A,1B41 

I I 

Start address 1 More than necessary, 
($033A for example) because the monitor 



doesn't save the last byte 
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4. Programs written entirely in machine code usually 
fall into three catagories. 

(i) Those that use ROM entry points, and system 

vp^riables all over the place. ,, . j 

variables aii^^ ^^^^ y^^^ ^^^ ^^^^^^ variables {keyboard 

^^^tiii) 'Those that manage everything by themselves. 
As before, I will handle each case separately. 

(i) Tiresome, because usually the whole program will 
have to be disassembled onto paper, and the listing gone 
through with a pen, whilst clutching memory maps' 

(ii) Shouldn't be too much trouble, since most system 

variables are the same. .. ^ ua^^ 

NOTE: $97 (151) = Keyboard Matrix coordinate on graphics 

keyboards, 
= Unshifted ASCII on business keyboards. 

(iii) Will almost certainly work. Only keyboard type may 
cause problems. 

Editor' s Note: 

SUPERM0N4.REL and AID4 are available from all Canadian 
commodore dealers as part of the Commodore Assembler 
Developement Pak. 

Most programs will probably fall into category 1 and 
won't need too much conversion at all. If a program run 
turns suddenly quite, check for the obvious first i.e. STOP 
key disable and don't forget that nasty screen POKE). 

Also remember that BASIC 4.0 has reserved two more 
variables besides TI, TI$ and ST. These are DS and DS$, the 
Disk Status. Any of these on the left of an = sign will 
cause 7SYNTAX ERROR, however, they ^re allowed on the right. 
If your date or something appears as "00, ok, 00, 00 or it a 
variable starts acting weird then you've probably missed one. 

Programs using PRINT* should also take note. The PRINT* 
command no longer outputs a LINE FEED after the carriage 
return unless the logical file # is 128 or greater. This 
won't need too much attention since most programmers inhibit 
line feeds in their PRINT* statements by following with 
CHR$(13); . However, if for some reason the program depends 
on that line feed, simply change the file numbers to 128 or 
greater. 

One last point to bear in mind (although chances of this 
one surfacing are slim to nil) is the fact that strings 
stored in RAM now require two more bytes of overhead. This 
gets you the faster garbage collection. However, if your 2.0 
system packs PET's RAM to capacity with a lot of good strings 
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(i.e. large string arrays with considerable length strings) 
then on 4.0 these two extra bytes per string can add up and 
possibly cause ?OUT OF MEMORY ERROR. Once again, highly 
doubtlful. 

Although converting programs can be a pain, the 
advantages of BASIC 4.0 make it all worth it. 
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DOS 2.0 Commands from B ASIC 2.0 

I really shouldn't be telling you this because Commodore 
does not reccommend this combination of equipment. However, 
there are still owners of the original 8k PETs that have 
upgraded to BASIC 2.0 to work disk, but can't upgrade to 
BASIC 4.0 because there simply aren't enough sockets on the 
board. BASIC 4.0 requires one ROM installed m the ?B000 
socket which does not exist on original machine boards. 

If you have a PET/CBM that came with BASIC 2.0 (three 
empty sockets) , I strongly reccommend that you upgrade to 
BASIC 4. If you bought the machine after July Ist, 1980, 
then the upgrade is free, so why not! The advantages of 
BASIC 4.0 are listed in another article in this issue. 

For those of you who don't upgrade your BASIC but do 
upgrade your DOS, you'll have to use the PRINT#15," command 
to access some of the new DOS 2.0 features. Of course all of 
the old DOS 1.0 commands remain the same except for "B-W ; 
use "112" instead. 

APPEND* 

This BASIC 4 command OPENS a SEQ file for appending: 

BASIC4: APPEND#6, "FILENAME" ;defaults to D0,U8 
BASIC2: OPEN 6 , 8, 4 , "0 : FILENAME, A" ; ,A for append 

CONCAT 

This one's quite simply a variation of the DOSl.O Copy 
command. However, if sent to DOSl.O, a dos syntax error 
would be placed in the error channel. 

BASIC4: CONCAT "FILE 2",D1 TO "FILE 1",D0 
BASIC2: PRINT#15,"C0:FILE 1=0:FILE 1,1:FILE 2" 

RECORD* 

Two commands are affected here. First you need to DOPEN 
a relative file, specifying the length of each relative 
record; 50 in the following example: 

BASIC4: D0PEN#6,"REL FILE NAME",L50 

BASIC2: OPEN 6,8,SA, "0:REL FILE NAME, L"+CHR$ (50) 

(See BASIC 4.0 and DOS 2.0 for more on The Relative Record 
system, this issue) . 

The RECORD* command uses the logical file number, but 
the BASIC 2.0 artificial RECORD* command uses the secondary 
address (SA) that you chose in the OPEN command. In BASIC 
4.0 the DOPEN command chose s an SA for you. 

BASIC4: REC0RD*6, (RR) , 2 ;RR is rel rec * 
BASIC2: HI = INT(RR/256) : LO = RR-HI*256 

PRINT*15 , "P"CHR$ (SA+96) CHR$ (LO) CHR$ (HI) CHR$ (2) 

The "P" stands for Position. The command tells the DOS to 
position to relative record number RR. The "2" tells the DOS 
to position to the second character of the record before 
reading or writing. 96 is added to SA because that's how 
RECORD* does it. 



This program demonstrates how to use the artificial 
relative record commands. BASIC 4.0 users should be able to 
replace them with the high level syntax. 



1000 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1200 

1220 

1230 

1240 

1250 

1260 

2000 

2005 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

3000 

3005 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

4000 

9000 

9001 

9002 

9003 

9005 

9010 

9100 

9101 

9102 

9103 

9105 

9200 

9201 

9202 

9203 

9205 

9210 

9220 

9230 



OPENl, 8,15: REM OPEN I/O CHAN 
INPUT" [CS] FILENAME ";F$ 
CLOSE2:OPEN2,8,2,F$:REM OPEN IT 
GOSUB9000:REM ANY ERROR ? 
IFEN=0THEN1200:REM NO - GO ON 
IFEN<>62THENGOSUB9100:END 
INPUT"RECORD SIZE ";RS 
F$=F$+",L"+CHR${RS) :GOTO1110 
INPUT"READ, WRITE, END ";A$ 
A$=MID$(A$,1,1) 
IFA$="R"THEN2000 
IFA$="W"THEN3000 
IFA$="E"THEN4000 
PRINT" [CU] " ; :GOTO1200 



:REM ** READ A RECORD ** 

• 

INPUT'RELATIVE RECORD NUMBER ";RR 
INPUT"RECORD POSITION ";PN 
GOSUB9200:REM POSITION DISK 
GOSUB9000:REM CHECK THE DISK 
IFENOOTHENGOSUB9100 :GOTO1200 
INPUT#2 ,A$ : PRINTA$ :GOTO1200 



REM ** WRITE A RECORD ** 



INPUT "RELATIVE RECORD NUMBER ";RR 
PN=1 : INPUT "DATA" ; A$ 
GOSUB9200:REM POSITION DISK 
GOSUB9000:REM CHECK THE DISK 
IFENOOTHENGOSUB9100 
PRINT#2 ,A$ :GOTO1200 
CL0SE2:CL0SE1:END 



REM ** READ DISK MESSAGE ** 

INPUT#1,EN$,EM$,ET$,ES$ 
EN=VAL(EN$) : RETURN 



:REM ** PRINT DISK MESSAGE ** 
PRINTEN$" , "EM$" , "ET$" , "ES$ :RETURN 

REM ** DOES REC0RD#2,(RR) ,(PN) 

RH=INT(RR/256) :RL=RR-RH*256 
C$="P"+CHR$ (2+96) +CHR$ (RL) +CHR$ (RH) 
C$=C$+CHR$(PN) 
PRINT#1,C$: RETURN 



27 



fix is upgrading to DOS 2.X. 

nn.q Rnas Date: 25th June 1980 Revs: Jan/ 81 

The list below is a guide to the errors that we are 
aware of through reports, and internal research. 

Below is a list of all the release versions of the DOS and 
their ROM numbers. 



DOS Description 

1.0 standard 2040/3040 
2.0 upgrade 2040/3040 
2.5 standard 8050 



ROMs 

901468-06/07 & 901466-02 
901468-11/12/13 & 901468-04 
901462-01/02 & 901465-02 



The DOS 2 series is designed to work with pets that have 
BASIC 4.0. All PETS (apart from BASIC 1.0) can run with all 
vprsions of the DOS. However certain facilities (e.g 
relative record capability) available in BASIC 4.0, will not 
work on DOS 1.0. See article on BASIC 4.0 and DOS 2.0 for 
details. 



Dos 1.0 

1. Save with replace 

There are a few problems with the bam here. We suspect 
that the problems are side effects of other commands. 
Solution: scratch first, then SAVE or for those who want to 
be extra cautious, SAVE under a temporary file name, scratch 
old file then rename temporary to old file name and scratch 
temporary file. 

2 . Rename 

This command fails occasionally, although disk unit 
gives 'ok' error message. We suspect this is caused when 
(i) the last directory entry has been scratched, (ii) the 
number of entries in the directory (including scratched 
entries) is a multiple of eight (i.e the directory fills an 
exact number of blocks), and (iii) there are other scratched 
files on the directory elsewhere. Solution: execute RENAME, 
then OPEN the file using appropriate file type parameters. 
Check error channel; if file exists then COPY on same drive 
to new file name and scratch old file name. This requires 
enough free blocks to accomodate both files. 
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3. Duplicate 

If an error happens during duplicate, the disk will hang 
trying the problem again and again. If this duplicate 
command string is in an OPEN statement, then the PET also 
crashes, as the PET will not be operational until the file 
has been OPENed. 

4. Sequential files 

If a sequential file of 254 characters (or any 
multiple), is written to the disk, then an extra carriage 
return is added to the end of the file. This is because the 
disk unit starts a new block (with a CR) , when the current 
block is full, before checking to see if end of file is 
reached. PET will hang if INPUT# reads to the end of the 
file. 

5. Write protect problem 

Any attempt to write data to a write protected diskette, 
will cause subsequent reading of this and other diskettes 
(with or without write protect tabs on) , to do at least one 
write to be made to the diskette. Solution: power down disk 
unit or send system reset to the command channel i.e. 
PRINT#15,"u:" or "uj". 

6. Block Allocate & Block Free 

There appears to be a problem when using the commands 
with numeric parameters. If the parameters are in a string 
then command is ok. 

7. Illegal track & sectors 

If illegal track or sector parameters are given to the 
block commands, then partial overlaying of error messages 
results. Especially as a result of bug number 6 above. 

8. Block Free 

If an unallocated block is freed, the block count is 
automatically incremented by one, and thus an erroneous 
number of blocks free can be generated (more than 670 !). 
Solution: Validate will restore order on the diskette. 

9. Validate I 

If an error occurs while validation of a diskette is 
taking place, then the bam will be left in an intermediary 
state. Solution: re-initialisation of the diskette is 
necessary in order to restore it to a safe state. 
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10. Validate II 

The validate command frees any sectors allocated for 
random access. 

11. SAVE & OPEN without drive number 

This causes partial updating on both drives, thus 
corrupting both bams. 

12. DOS handling of the IEEE bus 

hot^of atten'uon.'''TMr9?ves the appearance that a command 
is being sent to the peripherals. 

13. Extensive copying 

^t:S\^t^'^ ,^\T?lpre°."f I'ea r o?h^/laveirf an. 

has to be reset to resume normal operation. 

14. Memory read 

The byte returned from a memory-read oP^J^^^^ion is not 
accompanied by EOI on the bus. This causes INPUT* to crash 
the pet. Solution: GET# seems safer. 

15. Buffer pointer at 

A B-P command of zero sets the buffer pointer to 1. 

Dos 2.0 

1. Disk full message too late 

Tf a file is being written to the disk (see Note 1) and 
a disk' f'un meslage oLurs, then because there is nojpace 
iPft it will be impossible to close the file, and recover 
the data. solution: If in doubt, check error channel. If 
Disk Full, *COLLECT disk, format new disk and repeat. 

* Diskettes, from any DOS, containing improperly closed 
files should be COLLECTED or Validated only! Do not SCRATCH 
Ines iTt show a — beside the file type on the directory 
These files may point into good files. If ^it does, tne 
scratch command^ill free all the blocks in the chaxn which 
miaht include blocks that belong to the good file. Tnese 
Siocks Soull be overwritten in subsequent operations, 
corrupting your good file. 
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2. Relative Record create without BAM update. 

When a relative file is DOPENed for the first time, one 
sector is allocated for data and one for side sector data. 
If the file is aborted (i.e. no DCLOSE, DIRECTORY display, 
reset, etc.) before the DOS allocates a second data sector, 
the side sector information doesn't get written to the disk. 
Solution: DCLOSing properly will always prevent this. (see 
Relative file article under BASIC 4.0 and DOS 2.0, this 
issue.) 



Note 1. SAVE and OPEN with replace now work. Not that 
write/replace writes the new file first, then scratches the 
old file. If this order were reversed, the old file would be 
scratched and the new file might give Disk Full error. Both 
files would be lost. This way, if Disk Full occurs, the old 
file remains in untouched. The remaining available blocks 
that were used in the write attempt can be freed with a 
COLLECT . 



PQg 2 .5 

1. Disk full message too late 

Same as DOS 2.0. This is not really a bug but rather 
something the user or programmer should be checking for. 
Keep an eye on the Blocks Free too. 

2. Copy dX to dY abort 

The 8050 aborts a drive to drive Copy (i.e. complete 
copy with no explicit pattern matching) with a DISK ID 
MISMATCH error. This occurs after the first 8 directory 
entries are copied over. Solution: Use Duplicate instead. 
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ThP PET NMT Vector Henry Troup, Diemaster Tool 

NMI is the Non Maskable Interrupt. An interrupt is a way 
of telling the processor that its attention is needed for 
something else - right now! The regular PET interrupts are 
generated every l/60th second, and are used to process the 
clock, keyboard, stop key and so on. These interrupts can be 
-shut off' by setting the interrupt mask. There is, however, 
another interrupt, NMI. NMI cannot be masked - that means that 
it is always active. 

On the old PET, the NMI line is held high (off) by the 
hardware. If you have an old PET, there's nothing you can do. 
The 6502 NMI vector is at $FFFA-$FFFB. This vector is in ROM. 
It points to a routine in ROM at $FCFE. This routine does a 
jump indirect through location $94-95 in zero Page. On 
power-up, these locations are set to point at $C389, the BASIC 
warm start. 

So, what can we do with NMI ? Well, it can get us out of 
a few sticky situations with the disk. The NMI. line is 
available on the expansion port. The port is two connectors of 
50 pins each. NMI is on the front connector, on the mside. 
Count forwards from the break between the two connectors. NMI 
is the second pin. RESET is the fourth pin. If you have a 
RESET button which uses an alligator clip to connect to the 
RESET line, just move it to this pin. Otherwise, get a mini or 
micro size clip and connect it to NMI. Now get another lead to 
ground (any of the outer pins on the connector), and connect a 
switch between the two. Are we ready ? 

Now, when you push the RESET button, you ground the NMI 
line, and the 6502 jumps to the BASIC warm-start. Try it - 
nothing spectacular, the machine just prints READY and the 
cursor! OK, now let's do something silly. Try WAIT32768,1 ,1: 
Normally, that's a crash. Push NMI - READY. Neat, isn t it. 

At this point, we can see that NMI can recover from some 
crashes - but for others (processor crashes, not infinite 
loops) we'll still need RESET. 

But now comes the interesting stuff. We can change the 
NMI vector at $94,95 to anything we want. If we point it at 
$FD17, we can use NMI to jump to the monitor at any time. 
Useful for machine language programs - and all you need is an 
RTI instruction to get back to where you were. (You could use 
it to try and examine BASIC while it runs, too.) 

But, that's pretty tame. OK, how about having two BASIC 
programs available alternately. Here's how it can be done. 
Set up the first BASIC program in the usual place. Set its 
end-of-memory pointer to IK short of half of your memory. That 
is, in a 32K machine, set eom to $3C00, in 8k, to $0C00. Then 
copy all of zero-page to the 256 bytes just after the eom 
pointer of this program, and the stack to the next 256. Now, 
set the start of BASIC to after this stuff. For 32k, that s 
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$3E00. Set the eom pointer to 512 bytes short of the real 
end-of-memory. That would be at $7E00. Now save all of 0-page 
into this space, and follow it with the stack. 

Now, we can write a routine (in the cassette buffer) to 
swap the two copies of 0-page and the stack around. You'll 
also have to juggle the top of the stack somewhat. When you 
push NMI, the PC and the stack pointer go on the stack. You'll 
need to push the X,Y, and accumulator, too. Then do the swap, 
and restore X, Y, A. Then an RTI should get things rolling. 
Point the NMI vector (and the copies of the NMI vector) to this 
routine. Once all of this is debugged, we can start one of the 
programs running. Then push NMI, and we swap to the other 
program. Push the button again, and back to the other program. 

I haven't done this, so I can't promise that I didn't miss 
something out. If anyone does implement it (and finds a use 
for it!), I'd like to hear. 

You can also use NMI to handle some outside device. Good 
luck! 



Editor's Note; 

Henry's concept is sound. It would require some careful 

thought, although not much programming to accomplish. An 

article on this would be a likely candidate for Best 
Apllication award of Volume 3. 
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Pni-rv noints seen in various programmer's machine language 
nrooraSs ?he user is cautioned to check out the various 
^oSfines carefuny for proper setup before calling, registers 
used, etc. This list is an update to one published in 
Compute. 

ORIG UPGR 4.0 DESCRIPTION 

C2D8 B350 Open space in BASIC text 
C328 B3A0 Check available memory 
C357 C355 B3CD ?OUT OF MEMORY 
C359 C357 B3CF Send Basic error message 
C38B C389 B3FF Warm start, Basic 
C39B B40F Main CHRGET entry 
C3AC C3AB B41F Crunch & insert line 
C430 C439 B4AD Fix chaining & READY. 
C433 C442 B4B6 Fix chaining 

C46F B4E2 Receive line from keyboard 
C48D C495 B4FB Crunch tokens 
C522 C52C B5A3 Find line in Basic 
C553 C55D B5D4 Do NEW 

C567 C572 B5E9 Reset Basic and do CLR 
C56A C575 B5EC Do CLR 
C59A C5A7 B622 Reset Basic to start 
C6B5 C6C4 B74A Continue Basic execution 
C863 C873 B8F6 Get fixed-point number from Basic. 
C9CE C9DE BADE Send Return, LF if in screen mode 
C9D2 C9E2 BADE Send Return, Linefeed 
CA27 CAIC BBID Print string 
CA2D CA22 BB23 Print precomputed string 
CA47 CA43 BB44 Print "?" 

CA49 CA45 BB46 Print character (output .A to device) 
CEll CDF8 BEF5 Check for comma 
CE13 CDFA BEF7 Check for specific character 
CEIC CE03 BFOO 'SYNTAX ERROR' 

CFD7 CFC9 C187 Find fl-pt variable, given name 
D079 D069 C2B9 Bump Variable Address by 2 
D0A7 D09A C2EA Float to Fixed conversion 
D278 D26D C4BC Fixed to Float conversion 

na D472 FDll Entry to m.l.m. (dec. 54386 & 64785 resp.) 
D679 D67B C8D7 Get byte to X reg 
D68D D68F C8EB Evaluate String 
D6C4 D6C6 C921 Get two parameters 
D73C D773 C99D Add (from memory) 
D8FD D934 CB5E Multiply by memory location 
D9B4 D9EE CC18 Multiply by ten 

DA7 4 DAAE CCD8 Unpack memory variable to Accum ti 
DAA9 DAE3 CDOD Copy Ace #1 to (X,Y) location 
DBIB DB55 CD7F Completion of Fixed to Float conversion 
DC9F DCD9 CF83 Print fixed-point value 
DCA9 DCE3 CF8D Print floating-point value 
DCAF DCE9 CF93 Convert number to ASCII string 
E3EA E3D8 E202 Print a character 
na E76A D717 Output 4 ASCII hex chars from $FB,FC 
na E775 D722 Output .A as 2 hex digits 
na E7A7 D754 Input 2 hex digits to A . ^. 
na E7E0 D78D Transfer 1 ASCII hex digit to A m binary 
na E7B6 D763 Input 1 hex digit to A 
E7DE F156 F185 Print system message 
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F0B6 F0B6 F0D2 Send 'talk' to IEEE 

FOBA FOBA F0D5 Send 'listen' to IEEE 

F12C F128 F143 Send Secondary Address 

E7DE F156 F185 Send canned message 

F167 F16F F19E Send character to IEEE 

F17A F17F F1B6 Send 'untalk' 

F17E F183 F1B9 Send 'unlisten' 

F187 F18C FICO Input from IEEE 

F2C8 F2A9 F2DD Close logical file 

F2CD F2AE F2E2 Close logical file in A 

F32A F301 F335 Check for Stop key 

F33F F315 F349 Send message if Direct mode 

na F322 F356 LOAD subroutine 
F3DB F3E6 F425 ?LOAD ERROR 

F3E5 F3EF F42E Print READY & reset Basic to start 
F3FF F40A F449 Print SEARCHING... 
F411 F41D F45C Print file name 
F43F F447 F486 Get LOAD/ SAVE type parameters 
F462 F466 F4A5 Open IEEE channel for output. 
F495 F494 F4D3 Find specific tape header block 
F504 F4FD F53C Get string 

F52A F521 F560 Open logical file from input parameters 
F52D F524 F563 Open logical file 
F579 F56E F5AD ?FILE NOT FOUND, clear I/O 
F57B F570 F5AF Send error message 
F5AE F5A6 F5E5 Find any tape header block 
F64D F63C F67B Get pointers for tape LOAD 
F667 F656 F695 Set tape buffer start address 
F67D F66C F6AB Set cassette buffer pointers 
F6E6 F6F0 F72F Close IEEE channel 

F78B F770 F7AF Set input device from logical file number 
F7DC F7BC F7DF Set output device from LFN. 
F83B F812 F857 PRESS PLAY..; wait 
F85E F835 F87A Sense tape switch 
F87F F855 F89A Read tape to buffer 
F88A F85E F8A3 Read tape 
F8B9 F886 F8CB Write tape from buffer 
F8C1 F88E F8D3 Write tape, leader length in A 
F913 F8E6 F92B Wait for I/O complete or Stop key 
FBDC FB76 FBBB Reset tape I/O pointer 
FDIB FC9B FCEO Set interrupt vector 
FFC6 FFC6 FFC6 Set input device 
FFC9 FFC9 FFC9 Set output device 
FFCC FFCC FFCC Restore default I/O devices 
FFCF FFCF FFCF Input character 
FFD2 FFD2 FFD2 Output character 
FFE4 FFE4 FFE4 Get character 
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Fun With WATT Statements Henry Troup, Diemaster Tool 

Most of us find that the WAIT statement is of limited 
use. Until recently, the only use I had ever found was: 

WAIT 59411, 8, 8 

to wait for the cassette recorder play switch. But I did 
find some amusing and useful applications for WAIT. 

First, a quick review. 

The statement WAIT I, J, K causes the value of location 
I to be exclusive-OR'ed with K, and AND'ed with J. If the 
result is 0, the process repeats until a non-zero result is 
obtained. Most often, only tangible results are obtained 
when values of J and K are powers of 2 (1, 2, 4, 8, 16, etc.) 
since WAIT is a bit testing function. However testing for 
combinations of bits can also be useful. Be very careful 
though... during WAIT, the STOP is not tested. If a WAIT 
command is in entered, be certain a non-zero will occur or 
else! 

Obviously, most memory locations will be of very little 
interest with respect to WAIT. The only locations which are 
of interest, in fact, are those which are affected by 
external events. There are two sets of these: the keyboard/ 
cassette/ user port/ IEEE locations in E-page, and a few in 
zero page. It's the zero page locations I want to talk 
about. 

GET Loops 

The classic get loop is: 

1000 GET A$: IF A$ = "" GOTO 1000 

which loops until a non-null input is received. The same 
effect can be obtained by WAITing for the keyboard buffer 
pointer: 

1000 WAIT 158, 127: GET A$ 

This waits until the keyboard buffer count (decimal 158 for 
new ROM, 525 for old) is non-zero. It's a little harder to 
understand, but shorter and probably slightly faster. For 
experimentation, try replacing the GET command with INPUT and 
the 127 with 2, 4 and 8. 

WAITing for a kev 

Very often, a GET loop is used on a "Push Any Key To 
Continue" basis. One interesting alternative is to use: 

WAIT 152, 1 
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This waits for the shift key to be pushed (old ROM, 516) . 
The advantage is that nothing is put in the keyboard buffer, 
so that you need not clear the buffer. 

Or, if you want to have fun, try experimenting with 
WAITing for location 151 - key held down (515, old ROM). 
WAIT 151, 127, 255 will wait for any key. Specific keys are 
harder to WAIT for, since WAIT will only wait on one bit at a 
time. Remember that we're talking about un-decoded keyboard 
values here. 

WAITing for the Clock 

The real time clock occupies locations 141-143 in zero 
page. WAITing for one particular bit in the clock to change 
state will give an interesting delay effect. For example, 
WAIT 142, 1, 1 will wait for the rightmost bit of the second 
byte. This bit changes state every 256 jiffies, or 4 and a 
fraction seconds. WAIT 143, 1, 1 will wait till the start of 
the next jiffy. 

While some of these are not particularly useful, playing with 
the WAIT statement is quite a bit of fun. If anyone finds 
any more useful or interesting locations, I'll be WAITing to 
hear from you. 
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Rn32 Cont:rol Characters 

This table is a summary of the 8032 screen control 
functions. The ESC/RVS characters will display as 
lower/upper case or upper case/graphics, depending on which 
mode you're in. POKE59468,X (where X=12 for graphics, 14 for 
lower case) still changes modes without changing the gap 
between the lines. Notice that complimentary functions 
differ by 128 using CHR${. See the Commodore BASIC 4.0 
manual for details on functions. 



Pnni-rnl Function 


CHRSfvalue) 


Eflc/RVS cha 


BELL 


7 


g 


GRAPHICS 


142 


shift n 


TEXT 


14 


n 


SCROLL DOWN 


153 


shift y 


SCROLL UP 


25 


y 


SET BOTTOM 


143 


shift o 


SET TOP 


15 


o 


INSERT LINE 


149 


shift u 


DELETE LINE 


21 


u 


ERASE BEGIN 


150 


shift V 


ERASE END 


22 


V 


SET/CLR TAB 


137 


shift i 


TAB 


9 


i 



The above describes the special 80 column screen control 
functions. The functions can be activated two ways; by using 
CHR$( and the appropriate value or, preferably, by placing 
the appropriate character in reverse field within quotes. 
This is done by entering quote mode, hitting 'ESC, then 
'RVS' and the character. For example, to do a Scroll Down 
enter quote mode and type 'ESC, 'RVS', shift & 'Y' and 
RETURN. 'ESC takes you out of quote mode. If you wish to 
continue with more characters following the Scroll Down 
you'll have to do an OFF/RVS, another quote and DELete the 
quote. This is comparable to the cursor control characters 
but not quite so automatic. 

Although you could use the CHR$( values, the ESC/RVS 
method saves bytes and will eventually become much more 
legible. After all, when was the last time you used a 
CHR${17) to do a cursor right. (or is it a cursor up?... or 
is 17 delete?... no, I think it's a cursor down... I'd better 
check... hmm) 
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There is still another way to activate these functions 
without using PRINT. This is directly from the keyboard. 
But you say "There is no key on the keyboard assigned to do a 
scroll down or set top...". By pressing certain key 
combinations simultaneously, the keyboard value that is 
passed to the operating system will be the CHR$ value that 
activates the function. This information was published by 
Roy Busdiecker in Compute #7, but Roy found many combinations 
that do the same functions. I've listed only the easiest 
ones to remember. 



Control Function 



Key Combination 



TEXT 
GRAPHICS 
SCROLL DOWN 
SCROLL UP 
SET BOTTOM 
SET TOP 
INSERT LINE 
DELETE LINE 
ERASE BEGIN 
ERASE END 
SET/CLR TAB 
TAB 



BOTHShiftS / " 

LeftShift / TAB / I 

Shift / Z / A / L 
Z / A / L 
Shift / RVS / A / L 
RVS / A / L 
Shift / TAB / leftarrow / DEL 
/ TAB / leftarrow / DEL 
Shift / TAB 
TAB 



The two empty spaces beside TEXT and SCROLL UP are empty 
because they haven't been found yet. If anyone does, please 
let me know. 

The window can also be POKEd to size. The pokes are: 



Screen TOP 

BOTTOM 

LEFT 

RIGHT 



224, T where T=0 to 24 

225, B where B=T to 24 

226, L where L=0 to 79 

213, R where R=L to 79 



I'm not sure what weird or interesting effects you can 
get by making TOP less than BOTTOM or LEFT greater than 
RIGHT. This is handled by the 6 845 Screen Controller chip. 
The 6 845 does all kinds of neat things which we'll cover in a 
future Vol 3 Transactor. 
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More On fiO Columns 

A halt-scroll key has been added to the 8032. LIST a 
fairly long program and touch the ":" key. To restart 
scrolling, hit the left arrow key which is also the 
slow-scroll key. 

Escape quite simply escapes you from quote mode or 
insert mode (where cursor keys get displayed as reverse 
characters) . 

SYS 543 86 is the command to Call the monitor rather than 
break to the monitor which can be done with SYS4 . 

POKE 144,88 disables the STOP and the clock. 
POKE 144,85 enables. 

To clear the window hit or PRINT 2 HOMEs consecutively. 
If a "window reset disable" were desired, it would be easy 
enough to insert a pre-interrupt routine to zeroize the home 
count ($E8) so that the 8032 would never see 2 HOMEs in a 
row. The code would be LDA #0, STA $E8, JMP (the IRQ 
vector). Enter it fast with these steps: 

1. Enter m.l.m. with SYS4 

2. Type: m 027a 027a 

3. .: 027a a9 00 85 e8 4c 55 e4 00 

4. Now take the cursor up and change the 
IRQ vector to 027a <RETURN> 

5. Exit the mlm with x <RETURN> 

6. Set a window with the key combination (above) 

7. Just try and clear it! 

Best use for this would be for bulletproof INPUT. The 
program would set the window to one screen line with 
rightwindow - leftwindow = max input length. Then OPEN 1,0 
(input file from the keyboard) and use INPUT#1,A$. This way, 
no question mark is printed and hitting RETURN with no data 
input doesn't break out of the program. The window could not 
be cleared by the user either thanks to the pre-interrupt. 
Wella! .. .failsafe keyboard input! 
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The Toronto PET Users Group 



Over the past 18 months, the TPUG has 
been meeting at Sheridan College's Oakville 
Ontario campus. On behalf of Commodore, the 
club executive and the members, I'd like to 
thank Sheridan for providing an excellent 
facility. Special thanke to Frank Winter, Ted 
Bangay, Margo Martin and Dave Langden for 
making it all possible. 

The TPUG has now moved its meeting 
location to Leaside High School (south side of 
Eglinton Ave E., just east of Bayview Ave.) 
Meeting dates are scheduled for February 11, 
March 11, April 8, May 13 and June 10. 



The TPUG is also 
compiling a library of 
programs. These programs 
have been categorized into 
Machine Language and 
Utilities, Music, Games, 
Education, Math and 
Science, Medical, 

Business, Ham Radio, 
Telecommunications and 
Miscellaneous. The disks 
will be made available to 
club members only (regular 
or associate members) at 
$10.00 each. See 
Transactor #11 for 
membership particulars. 



Two 
available 
directory 
shown here. 



disks are 

now. Their 

listings are 



Should any other PET 
clubs wish to make 
announcements in The 
Transactor, please don't 
hesitate to send them in! 



Disk Drive 
michigan 1 



No. 0: best 



universal wedge 

qubic.alt 

keno 

mousemaze 

kingdom /pics 

quandry 

dragon.maze! 

clouzot! 

snake. alt 

spade. instructs 

magic .square 

spades 

anti-air /bus 

battleship .alt2 

billiards! 

clue 

dog .star .adven 

dominoes 

draw. poker 
dungeon 1.4 
dungeon .alt3 
m.b .instructions 
madman .race 
mille bourne 
dice. pig 
startrek.alt4 
find. color 
craps.odds 
tank, war .alt 
horserace 
snowflake 
wumpus.alt 
listener 



Disk Drive No. 1: tpug-m 
tpug-m.l. 1 

universal wedge 

copy all 

supermon l.rel 

supermonl ins 

supermon 2.rel 

supermon 4.rel 

supermon2/4 ins 

extramon9g)$1000 

extramon9b )$1000 

extramon inst 

append /renum .rel 

rom test— btfld 

trace .rel (basic) 

ramtest)$500 

screen print 

un-new/sys826 

keysort2$7454 

keysort2-2demo 

keysort2-ldemo 

keysort2$lc54 

low case list 

disk append 

disk mod/vl 

disk id corrctor 

disk peek 

view bam 

block get 1.0 

bl get )$033a 

keyprint/826 

disk name (r) 

copyprog 

keymake 

copydisk/sys973 

tape test No. 

tape write (No.) 

copycat !sys934 

copycat'sys934 

disk logger 

catalog 

search 

utinsel.rel 

aid4 

compactor 

cassette. to .disk 

datamaker 

keysort.exel6/32 

keysort.demol 

keysort.demo2 

keysort.exeSk 

cross-ref 

basic.aid.exe 



Blocks Free 



Blocks Free 



283 



41 



XDOS 2.2 (C) Bv Prominico Indust r ial Electronics 



XDOS 2.2 is a "souped up" DOS Support (plus a number of 
other neat commands) for PETs with BASIC 2-0. It comes on an 
EPROM that can be installed in any of the three empty 
sockets, depending on which XDOS you buy: 

XDOS 2.2-9 goes in socket UD3 
XDOS 2.2-A goes in socket UD4 
XDOS 2.2-B goes in socket UD5 
Easy-to-follow documentation included 

XDOS initialization is done with a SYS. XDOS can also 
live with other interrupt driven software. As long as XDOS 
is started last, any previous IRQ vector tampering won't be 
disabled. 

Command Summarv 



MENU 



The MENU command displays a maximum of 36 directory 
entries (one drive at a time) starting with drive 0. Very 
pretty! Hitting SPACE continues to display directory entries 
from drive to the end of the directory. SPACE again 
precedes to display drive 1. STOP clears the screen and 
returns to BASIC. 

All MENU commands default to both drives, however drive 
or 1 only can be specified by following the command with 
the drive number. 

As directory entries are displayed, they are assigned a 
number from to Z. Hitting the corresponding character 
hilights the filename, then LOADS and RUNs the program. Of 
this would not work for SEQ files, which brings us to... 

DMENU 



DMENU does a directory listing just like MENU, but 
selecting a SEQ file will print file content to the screen. 
Preceding with an asterisk (i.e. *DMENU) would send the file 
contents to the printer. 



CMENU 



Copies multiple files from on drive to another. Quick 
and easy to use. Simply select the corresponding characters 
and hit return. 

SMENU 



Works the same as CMENU, but for scratching files. 
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Printer Support 

XDOS has some really friendly hard copy commands. Each 
is a variation using the "*". 

Screen Print 

Typing a ">*" <return> enables screen print. Following 
this, pressing in order and holding down the keys 'SHIFT' 
'RVS' and '*', dumps the screen to the printer, even while a 
program is running! 

Preceding any output type command with a "*" has the 
same effect as typing: 

OPEN253,4:CMD253 : (your commands) : PRINT#253 :CLOSE253 

Some examples: *LIST 

*FOR J=32 TO 95 : ?J,CHR$(J) : NEXT 

Machine Language Monitor Access 



Typing a " . " <return> drops you into the m.l.m. 
Following the "." with your mlm command will exucute the mlm 
command right from BASIC. No need for SYS4 . 

Disk Fix 



XDOS will prevent some deadly DOS 1.0 bugs, namely SAVE 
with replace and SAVE or OPEN without a drive number. XDOS 
intercepts these commands before they are executed. 

In addition, XDOS includes all the DOS Support commands; 
> or @, / (load) and the uparrow (load & run). 

At present XDOS 2.2 works on BASIC 2.0 machines only. A 
new XDOS is in the works for BASIC 4.0 and should be 
available by March/ 81. 

Cost is 97.50 + 2.50 for postage, etc. Contact: 

Prominico Industrial Electronics 

1921 Burrard St. 

VANCOUVER, B.C. 

V6C 2J3 

604-738-7811 
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